home *** CD-ROM | disk | FTP | other *** search
/ InterNet Essentials for Pharmacists / InterNet Essentials for Pharmacists.iso / InterNet.exe / InterNet.dxr / 00010_RegularButton.ls < prev    next >
Encoding:
Text File  |  2000-11-16  |  1.3 KB  |  47 lines
  1. property spriteNum
  2.  
  3. on mouseWithin me
  4.   nameOfSprite = (the member of sprite spriteNum).name
  5.   howLong = nameOfSprite.length
  6.   if chars(nameOfSprite, howLong - 4, howLong) = " norm" then
  7.     WhoToPutHere = chars(nameOfSprite, 1, howLong - 4) & "over"
  8.     sprite(spriteNum).member = member(WhoToPutHere)
  9.   end if
  10.   cursor(200)
  11.   if sprite(50).visible = 0 then
  12.     sprite(50).visible = 1
  13.   end if
  14.   sprite(50).locH = the mouseH
  15.   sprite(50).locV = the mouseV
  16.   updateStage()
  17. end
  18.  
  19. on mouseDown
  20.   nameOfSprite = (the member of sprite spriteNum).name
  21.   howLong = nameOfSprite.length
  22.   WhoToPutHere = chars(nameOfSprite, 1, howLong - 4) & "down"
  23.   sprite(spriteNum).member = member(WhoToPutHere)
  24.   set the member of sprite 50 to member("handDown")
  25.   updateStage()
  26. end
  27.  
  28. on mouseUp
  29.   nameOfSprite = (the member of sprite spriteNum).name
  30.   howLong = nameOfSprite.length
  31.   WhoToPutHere = chars(nameOfSprite, 1, howLong - 4) & "over"
  32.   sprite(spriteNum).member = member(WhoToPutHere)
  33.   set the member of sprite 50 to member("hand")
  34.   updateStage()
  35. end
  36.  
  37. on mouseLeave
  38.   nameOfSprite = (the member of sprite spriteNum).name
  39.   howLong = nameOfSprite.length
  40.   WhoToPutHere = chars(nameOfSprite, 1, howLong - 4) & "norm"
  41.   sprite(spriteNum).member = member(WhoToPutHere)
  42.   sprite(50).visible = 0
  43.   set the member of sprite 50 to member("hand")
  44.   cursor(-1)
  45.   updateStage()
  46. end
  47.